home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / SearchCD.mrx < prev    next >
Text File  |  1998-08-12  |  2KB  |  59 lines
  1. /* SearchCD.mrx                           */
  2. /* MUIrexx interface for the CU Amiga and */
  3. /* Aminet CD search utility               */
  4.  
  5. VerStr = '$VER: SearchCD.mrx 1.0 (12.12.98)'
  6. VerStr = subword(VerStr,2)||'0a'x||'(c) Neil Bothwick, Wirenet'
  7.  
  8. /* ;;; Initialise */
  9. GuiPort = 'SEARCHCD'
  10. PrgPort = 'SEARCHCD.1'
  11. MUIA_List_Quiet                   = 0x8042d8c7
  12. MUIM_List_Select                  = 0x804252d8
  13. MUIV_List_Select_All              = -2
  14. MUIV_List_Select_On               =  1
  15. MUIA_Listview_MultiSelect         = 0x80427e08
  16. MUIV_Listview_MultiSelect_Default = 1
  17. MUIA_Gauge_Current                = 0x8042f0dd
  18. MUIA_Gauge_Divide                 = 0x8042d8df
  19. MUIA_Gauge_Horiz                  = 0x804232dd
  20. MUIA_Gauge_InfoText               = 0x8042bf15
  21. MUIA_Gauge_Max                    = 0x8042bcdb
  22. MUIA_List_Entries                 = 0x80421654
  23. MUIA_Group_Columns                = 0x8042f416
  24. MUIA_Menuitem_Shortcut            = 0x80422030
  25. TRUE = 1
  26. FALSE = 0
  27. ;;;
  28. /* ;;; Create main window */
  29. address(GuiPort)
  30. window id MAIN port PrgPort command 'QUIT' title '"CU Amiga CD Search"'
  31.     group id ALL
  32.         group horiz attrs MUIA_Group_Columns 2
  33.             label double 'Search string'
  34.             string id SCSTR
  35.             label double 'CDs to search'
  36.             cycle id CDTYP port PrgPort command 'RESCAN' labels 'CU Amiga,Aminet'
  37.             endgroup
  38.  
  39.         list id CDLST attrs MUIA_Listview_MultiSelect MUIV_Listview_MultiSelect_Default
  40.         group id BTNS horiz
  41.             button id GO port PrgPort command 'SEARCH' label 'Search'
  42.             button id ALL port PrgPort command 'ALL' label 'Select All'
  43.             button id ESC port PrgPort command 'QUIT' label 'Cancel'
  44.             endgroup
  45.         gauge id PROGR attrs MUIA_Gauge_Horiz MUIA_Gauge_InfoText '' label ''
  46.         endgroup
  47.     menu id PROJM label 'Project'
  48.         item id ABOUT port PrgPort command 'ABOUT' MUIA_Menuitem_Shortcut '?' label 'About'
  49.         item id MUI   port PrgPort command 'ABOUTMUI' label 'About MUI...'
  50.         item id QUITM port PrgPort command 'QUIT'  MUIA_Menuitem_Shortcut 'Q' label 'Quit'
  51.         endmenu
  52.     endwindow
  53. ;;;
  54. /* ;;; Signal main program */
  55. address(PrgPort)
  56. 'READY'
  57. ;;;
  58.  
  59.